home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The Arcade• / RoboWar •••• / Robots Folder / MoveBot / MoveBot next >
Text File  |  1990-04-02  |  673b  |  38 lines
  1. { MoveBot
  2.   Created 11/21/89 by David Harris.
  3. }
  4.  
  5. START:
  6.        1 speedx' store                 
  7.        1 speedy' store
  8.        25 shield' store
  9.  
  10. MAIN:
  11.        aim 5 + aim' store              # Rotate Turret 
  12.        x 50 < xmin if                     # X minimum
  13.        y 50 < ymin if                     # Y minimum
  14.        x 250 > xmax if                    # X maximum
  15.        y 250 > ymax if                    # Y maximum
  16.        range 0 > shoot if              # Shoot if range >0
  17.     25 shield' store
  18.        main jump
  19.  
  20. XMIN:
  21.        random 3 mod 1 + speedx' store
  22.     return
  23.  
  24. YMIN:
  25.     random 3 mod 1 + speedy' store
  26.        return
  27.  
  28. XMAX:
  29.        -1 random 3 mod - speedx' store
  30.        return
  31.  
  32. YMAX:
  33.        -1 random 3 mod - speedy' store
  34.        return
  35.  
  36. SHOOT:
  37.     energy 2 / missile' store
  38.        return